(do_autoload): Ignore elements of Vautoload_queue where car is not symbol.

diff --git a/src/ChangeLog b/src/ChangeLog
index 443a6f83208cce179d24143d484e254846df0d51..c73d490c8ac173b177d454f6fb49f679eb435439 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2005-12-27  Richard M. Stallman  <rms@gnu.org>
+
+       * eval.c (do_autoload): Ignore elements of Vautoload_queue
+       where car is not symbol.
+
 2005-12-27  Kenichi Handa  <handa@m17n.org>
 
        * charset.c (lisp_string_width): Check multibyteness of STRING.

diff --git a/src/eval.c b/src/eval.c
index ba70412edafa8baf2ce57367eb640d50f1932116..a6c58bc2425930a7370c1557ddf07bac1b925af7 100644 (file)
--- a/src/eval.c
+++ b/src/eval.c
@@ -2069,7 +2069,7 @@ do_autoload (fundef, funname)
       second = Fcdr (first);
       first = Fcar (first);
 
-      if (CONSP (second) && EQ (XCAR (second), Qautoload))
+      if (SYMBOLP (first) && CONSP (second) && EQ (XCAR (second), Qautoload))
        Fput (first, Qautoload, (XCDR (second)));
 
       queue = XCDR (queue);